<% Dim intLunghezza intLunghezza = 200 Dim strSQL strSQL = "select datepart(dd,dateadd(dd,TProdotto.validita,TProdotto.datains)) as gscadenza, datepart(mm,dateadd(dd,TProdotto.validita,TProdotto.datains)) as mscadenza, datepart(yy,dateadd(dd,TProdotto.validita,TProdotto.datains)) as ascadenza, tcategoria.nome as categoria,ragione,email,web,tprodotto.descrizione,chiavi,prezzo,quantita,validita,segnalazioni,offerta from tprodotto inner join tcategoria on tcategoria.cod=tprodotto.cod_categoria where offerta=1 and tprodotto.cod="&Request.querystring("cod") Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = conn rs.CursorType = 0 rs.LockType = 1 rs.Source = strSQL rs.Open %>
       
  offerte prodotti    

finericerca.gif (147 byte) lente.gif (263 byte)

Cerca:

Tra:

 
Nome dell'azienda/società che pubblica l'offerta:
  <%=rs("ragione")%>
Descrizione del prodotto:
   <%=rs("descrizione")%>
Prezzo di vendita:
   <%=rs("prezzo")%>
Quantità disponibile:
   <%=rs("quantita")%>
Validita dell'offerta:   <%=rs("gscadenza")%>/<%=rs("mscadenza")%>/<%=rs("ascadenza")%>
Sito web collegato all'azienda/società:   http://"><%= rs("web") %>
Per informazioni scrivere a:
   "><%= rs("email") %>